NAVAL  RESEARCH  LABORATORY 
Washington,  D.C. 


EtSEUUEl 


Approved  lor  public  release:  distribution  unlimited 


SECURITY  CL  ASSlFlC  ATION  of  This  page  fW hen  Data  Entered) 


REPORT  DOCUMENTATION  PAGE 

READ  INSTRUCTIONS 

BEFORE  COMPLETING  FORM 

1 REPORT  NUMBER  2.  GOVT  ACCESSION  NO- 

NRL  Report  8147  ^ 

3 RECIPIENT'S  CATALOG  NUMBER 

« title  end  Subilil.) 

PHASE-DIFFERENCE  PROCESSING  INCORPORATING 
TIME-ALIGNMENT  AND  TIME-COMPRESSION  TECHNIQUES 

S TYPE  OF  REPORT  A PERlOO  COVERED 

Interim  Report  on  one  phase  of  a 
continuing  NRL  Problem 

6 PERFORMING  ORG.  REPORT  NUMBER 

7 author^§; 

Wendell  L.  Anderson 

8.  CONTRACT  OR  GRANT  NUMBER'*; 

9 PERFORMING  organization  name  and  aodress 

Naval  Research  Laboratory  y 

Washington,  D.C.  20375 

10  PROGRAM  ELEMENT.  FROJECT,  TASK 
AREA  A WORK  UNIT  NUMBERS 

NRL  Problem  S01-61 

ARPA  Order  3874 

II  CONTROLLING  office  name  ano  aooress 

Defense  Advanced  Research  Projects  Agency 

Arlington,  Va.  22209 

12  REPORT  DATE 

August  10,  1977 

13  NUMBER  OF  PAGES 

15 

■■■■I 

15.  SECURITY  CLASS,  (ot  thl  a report ; 

Unclassified 

15a.  OECLASSI  FI  CATION  DOWNGRADING 
SCHEDULE 

16  DISTRIBUTION  STATEMENT  (cl  thl  a Report) 

Approved  for  public  release;  distribution  unlimited 

17  DISTRIBUTION  STATEMENT  (ol  the  ebatrect  entered  In  Block  20.  If  different  from  Report) 


18  supplementary  NOTES 


19  KEY  WORDS  ( Continue  on  reverae  aide  If  neceaaery  end  Identify  by  block  number) 

Coherence  analysis 
Correlation  processing 
Phase  difference 

20  ABSTRACT  ( Continue  on  reverae  aide  It  neceeaery  end  Identify  by  block  number) 

This  report  describes  a system  for  measuring  the  instantaneous  phase  difference  between  two  signals 
as  a function  of  time.  This  system  allows  the  user  to  apply  various  time-difference  and  doppler 
corrections  to  the  signals  in  order  to  obtain  minimum  (in  the  least -squares  sense)  phase  difference 
between  the  signals. 


CONTENTS 


I 

INTRODUCTION  1 

SYSTEM  DESCRIPTION  1 

Digital  System 2 

Axis-Crossover  Phase  Meter 2 

SYSTEM  OPERATION  2 

Time-Register  Alignment 2 

Doppler  Corrections  3 

CONCLUSIONS  3 

ACKNOWLEDGMENTS 5 

REFERENCES  5 

APPENDIX  A — Program  Listing  6 


PHASE-DIFFERENCE  PROCESSING  INCORPORATING 
TIME-ALIGNMENT  AND  TIME-COMPRESSION  TECHNIQUES 


INTRODUCTION 

Coherent  processing  has  proven  to  be  a viable  technique  in  the  study  of  undersea  acoustic 
signals.  To  be  effective,  such  processing  requires  the  phase  coherence  between  the  received 
signals  to  be  high.  That  is,  the  minimum  phase  difference  between  the  two  signals  (after 
corrections  for  differences  in  transit  times  and  doppler)  must  be  small  in  the  least-squares 
sense.  Moreover  the  time-difference  and  doppler  corrections  required  to  achieve  the 
minimum  phase  difference  provide  estimates  of  these  parameters  for  localization  and 
dynamics  determination. 

This  report  will  examine  the  problem  of  correcting  for  time  alignment  and  time  scale- 
factor  between  two  signals  in  the  measurement  of  phase  difference  and  describe  in  general 
terms  a system  for  implementing  these  functions. 

SYSTEM  DESCRIPTION 

The  basic  technique  for  measuring  the  instantaneous  phase  difference  between  two 
signals  is  illustrated  in  Fig.  1.  The  two  bandlimited  signals  are  processed  through  delay 
networks  in  order  to  align  the  two  signals  in  time  register,  after  which  one  of  the  two  sig- 
nals is  processed  through  a time  compressor  (or  expander)  to  correct  for  the  doppler  differ- 
ence between  the  two  channels.  The  signals  are  then  fed  to  an  axis-crossover  comparator 
(phase  meter)  and  a duel-trace  oscilloscope.  The  phase  difference  between  the  two  signals 
is  recorded  as.  a function  of  time  on  a Brush  stylus  recorder. 


Fig.  1 — Phase-measurement  technique 
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Digital  System 

The  process  was  implemented  in  two  steps.  In  the  first  step  of  the  process,  time  delays 
and  time  compressions  (or  expansions)  were  introduced  to  the  data  channels  by  the  use  of  a 
PDP-11/40  minicomputer.  Each  of  the  digital  signals  was  stored  in  a contiguous  file  on  the 
system  disk,  which  allowed  the  data  streams  to  be  accessed  by  sample  number.  The  time 
delay  for  each  of  the  signals  is  obtained  by  specifying  the  starting  sample  number  for  each 
channel.  The  time  alignment  between  the  two  signals  is  varied  by  changing  the  starting 
sample  number  for  the  first  signal  relative  to  the  second.  Time  is  compressed  (or  expanded) 
by  periodically  skipping  (or  duplicating)  samples  from  the  second  channel.  The  new  data 
streams  are  multiplexed  into  a single  data  stream  and  written  onto  magnetic  tape  for  pro- 
cessing by  the  phase  meter.  A more  detailed  explanation  of  the  software  program  to 
accomplish  this  first  step  is  given  in  Appendix  A. 


Axis-Crossover  Phase  Meter 

In  the  second  step  of  the  process  the  magnetic  tape  that  is  generated  is  used  as  the 
signal  input  for  the  system  shown  in  Fig.  2.  Each  record  on  the  magnetic  tape  is  read  into 
one  of  two  buffers.  To  maintain  a continuous  flow  of  data  through  the  system,  one  buffer 
is  being  filled  while  the  other  is  being  read  by  the  demultiplexer.  The  two  demultiplexed 
data  channels  are  digital-to-analog  converted  and  low-pass  filtered.  Each  channel  is  then  fed 
to  the  phase  meter.  At  each  positive  axis-crossover  of  the  channel  1 signal,  a counter  in  the 
phase  meter  is  reset,  and  at  each  positive  axis-crossover  of  the  channel  2 signal  the  contents 
of  the  counter  is  converted  to  a voltage  which  is  fed  to  the  strip-chart  recorder.  (Further 
details  on  the  axis-crossover  phase  meter  are  given  in  Ref.  1.) 


Fig.  2 — Phase -meter  system 


SYSTEM  OPERATION 

The  system  was  tested  using  a.  signal  with  the  frequency-modulation  pattern  illustrated 
in  Fig.  3.  (More  details  on  the  properties  of  this  frequency  function  are  reported  in 
Ref.  2).  In  the  examples  given  a signal  with  fc  = 33  Hz  and  A f = 0.2  Hz  were  used.  The 
signals  were  sampled  at  264  Hz. 


Time-Register  Alignment 

The  first  area  of  study  was  to  determine  the  effect  of  time  register  (or  time  alignment) 
on  the  phase-difference  pattern  of  identical  signals.  Figure  4 illustrates  the  phase-difference 
pattern  for  offsets  of  0,  1,  2,  4,  and  8 seconds.  The  45-degree  offset  from  the  center  of 
each  plot  is  the  result  of  the  clocking  from  the  demultiplexer.  Each  sample  from  channel 
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Fig.  3 — Source  frequency  function 

2 is  displaced  1/2  sample  interval  (1/8  wave  period)  after  the  corresponding  sample  for 
channel  1.  In  this  example  the  phase-difference  patterns  approximate  triangular  wave  forms, 
with  peak-to-peak  excursions  directly  proportional  to  the  time-register  difference. 

Doppler  Corrections 

The  system  was  also  used  to  examine  the  effect  of  both  time  register  and  doppler 
alignment  on  a motional-source  signal  received  at  two  widely  spaced  sensors  Since  the 
locations  of  the  source  and  sensors  were  known,  it  was  easy  to  approximately  time-align 
the  signals.  After  the  initial  time  alignment  the  phase-difference  pattern  appears  as  shown 
in  Fig  5a  The  continuous  phase  migration  (360-degree  sawtooth  wave)  is  a result  of  the 
doppler  difference  between  the  two  received  signals.  Over  the  time  interval  of  30  minutes 
(475,200  samples)  a cumulative  phase  difference  of  about  37-1/4  full  periods  (298  samples) 
is  noted.  To  correct  for  doppler,  it  is  thus  necessary  to  drop  a sample  every  1595  samples 
from  the  second  signal.  The  effect  of  this  correction  is  shown  in  Fig.  5b.  There  is  now 
no  net  phase  movement  of  the  phase  difference  over  the  30-minute  interval,  but  an 
irregular  waveform  similar  to  that  shown  in  Fig.  4 may  be  noted.  This  suggests  that  some 
time-register  difference  still  exists  between  the  two  signals.  Figure  5c  illustrates  the  final 
phase  difference  between  the  two  signals  after  they  have  been  properly  time  aligned.  This 
final  alignment  indicates  that  the  time  difference  between  channel  2 1 andi channel 1 was 
1/2  second  smaller  than  expected  and  that  a doppler  compression  of  0.000627  (or  0.02069 
Hz)  existed  between  the  two  signals. 

The  high-frequency  (45-degree-sawtooth)  component  of  the  phase-difference  pattern 
seen  in  Figs.  5b  and  5c  is  a result  of  the  discrete  manner  of  correcting  for  doppler  difference. 
(The  spikes  in  the  Fig.  5 phase-difference  plots  are  caused  by  tape  dropouts  during  the 
reading  of  the  magnetic  tape  and  should  be  ignored.) 

CONCLUSIONS 

The  system  described  in  this  report  provides  a simple  and  convenient  method  for 
measuring  the  instantaneous  phase  difference  between  two  signals  as  a function  of  both  time- 
register  and  time-scale-factor  (doppler)  difference.  By  examining  the  phase-difference  plots, 
one  can  determine  the  time-register  and  doppler  difference  required  for  minimum  phase 
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(c) PHASE- DIFFERENCE  PLOT  AFTER  TIME- REGISTER  AND  DOPPLER  CORRECTIONS 


Fig.  5 — Phase-difference  patterns  of  the  signal  received  at  separate  sensors 

difference.  In  so  doing,  estimates  of  the  time-register  and  doppler  shift  are  provided,  and  an 
estimate  of  the  maximum  phase  correlation  between  the  signal  channels  may  readily  be  derived. 
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Appendix  A 
PROGRAM  LISTING 

This  appendix  describes  the  assembly-language  program  which  produced  the  phase-meter 
input  tapes.  The  actual  program  is  the  first  five  of  the  six  printout  pages  and  runs  under  the 
DEC  DOS/BATCH  system.  This  program  assumes  that  the  data  for  the  two  channels  have 
been  stored  as  eight-bit  bytes  in  the  contiguous  disk  files  STANOl.DAT  and  STAN02.DAT 
respectively.  Each  of  these  data  files  consists  of  512-byte  records.  The  program  writes 
the  multiplexed  data  onto  a seven-track  556-BPI  tape  (556  binary  digits  per  inch)  with 
2000  six-bit-byte  records.  (Each  six-bit  byte  contains  the  six  most  significant  bits  of  a 
sample.) 

As  indicated  by  the  program  contents,  lines  1 through  29  initialize  the  program.  The 
number  of  records  in  each  input  data  file  is  entered  first.  This  is  followed  by  the  number 
of  samples  that  each  data  stream  is  to  be  delayed.  These  latter  numbers  are  converted  to 
a starting  record  number  and  a starting  address  within  the  record.  This  is  accomplished  by 
lines  39  through  43  and  lines  53  through  58  (for  channels  1 and  2 respectively),  with  the 
starting  addresses  stored  in  general-purpose  registers  R1  and  R2. 

Lines  60  and  61  of  the  program  then  examine  bit  0 of  the  switch  register  to  see  if 
a doppler  correction  is  to  be  made.  If  bit  0 is  on  (indicating  a doppler  correction),  then 
the  number  of  samples  between  address  corrections  is  stored  in  DROP  and  DOPP,  and  the 
direction  of  the  correction  (retard  or  advance  address  by  one)  is  stored  in  ANSWR. 

The  program  now  places  the  starting  address  of  the  output  buffer  in  register  R3  and 
sets  the  output-buffer  counter  register  R4  to  the  size  in  words  (one  word  is  equivalent  to 
two  data  samples)  of  the  output  buffer.  The  program  then  reads  the  first  required  data 
record  for  channels  1 and  2 into  the  buffers  NPUT1  and  NPUT2  respectively. 

The  program  begins  multiplexing  the  data  channels  into  the  output  buffer.  In  line  84 
a sample  from  channel  1 is  moved  from  the  channel  1 input  buffer  into  the  output  buffer, 
and  the  two  buffer  pointers  are  incremented  by  1.  The  process  is  repeated  for  channel  2 in 
line  85.  The  program  then  decrements  the  R4  counter  by  1 and  tests  to  see  if  the  output 
buffer  is  full.  If  the  buffer  is  full,  the  output  buffer  is  written  onto  the  magnetic  tape  and 
registers  R3  (output-buffer  pointer)  and  R4  (output-buffer  counter)  are  reset. 

Line  105  checks  NOPOP  to  determine  if  a doppler  correction  is  to  be  made.  If  so, 
the  counter  DROP  is  decremented  by  1 and  compared  with  zero.  If  DROP  is  zero,  DROP 
is  reset  to  DOPP  and  ANSWR  is  examined  to  determine  whether  a sample  should  be  repeated 
or  dropped.  If  a sample  is  to  be  repeated,  the  counter  R2  is  decremented  by  1;  and  if  a 
sample  is  to  be  dropped,  R2  is  incremented  by  1 and  the  input  buffer  tested  to  determine  if 
the  channel-2  data  have  been  exhausted.  If  the  data  have  been  exhausted,  a new  record  is 
read  into  NPUT2. 

This  process  continues  until  the  program  must  access  a record  greater  than  the  size  of 
one  of  the  input  files  (as  specified  by  RECBL1  and  RECBL2).  Finally  the  most  significant 
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bit  of  the  switch  register  is  checked.  If  it  is  on,  the  program  recycles  to  generate  a new 
file  of  multiplexed  data  with  a new  time  register  and/or  a new  doppler  correction.  Other- 
wise control  is  returned  to  the  DOS  monitor. 

An  example  of  the  entries  to  the  program  is  shown  in  Fig.  Al.  (This  program  produced 
the  data  tape  for  the  phase-difference  plots  shown  in  Fig.  5.)  The  underlined  portions  are 
the  entries  entered  by  the  operator.  In  the  example  the  data  inputs  are  six-digit  ASCII 
numbers,  each  less  than  the  decimal  number  65,536.  In  addition  the  entry  indicating  that 
samples  were  to  be  dropped  from  the  second  channel  was  a four-digit  ASCII  entry  SUB2. 

(If  samples  were  to  have  been  added,  the  entry  would  have  been  ADD2.) 


(all  sense  switches  down) 


$RU  D0PP12 

LAST  DATA  RECORD  FOR  STATION  1 001250 
LAST  DATA  RECORD  FOR  STATION  2 001250 
NO.  OF  SAMPLES  TO  DROP  FROM  STATION-1  DATA  026400 
NO.  OF  SAMPLES  TO  DROP  FROM  STATION -2  DATA  026400 


(put  sense  switch  0 up) 

NO.  OF  SAMPLES  TO  DROP  FROM  STATION -1  DATA  026400 
NO.  OF  SAMPLES  TO  DROP  FROM  STATION -2  DATA  026400 
NO.  OF  SAMPLES  BETWEEN  DOPPLER  CORRECTIONS  001595 
ADD  OR  SUB  SAMPLES  FROM  CHANNEL  2?  SUB 2 

(put  sense  switch  15  up) 

NO.  OF  SAMPLES  TO  DROP  FROM  STATION  1 DATA  026532 
NO.  OF  SAMPLES  TO  DROP  FROM  STATION  2 DATA  026400 
NO.  OF  SAMPLES  BETWEEN  DOPPLER  CORRECTIONS  001595 
ADD  OR  SUB  SAMPLES  FROM  CHANNEL  2 SUB 2 


Fig.  Al  — Example  of  a run  of  the  multiplexing  program 
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001 

SW  = 177570 

002 

» PROGRAM  TO  MULTIPLEX  DATA 

003 

•TITLE 

OOPPLR 

004 

•MCALL 

. INIT. .RLSE. .WAIT. .OPEN. .CLOSE 

005 

•MCALL 

•EXIT. .RECRD. .D2BIN, .TRAN. .RADPK 

006 

• GLOBL 

OPUT I . OPUT. OPUTF. OPUTD 

007 

START:  .INIT 

f DSKBL1 

008 

• INIT 

#DSKBL2 

009 

• INIT 

fKBBLK 

010 

i OBTAIN  NUMBER 

OF  LAST  RECORD  IN  FIRST  FILE 

01  1 

• TRAN 

fKBBLK, fTBLKI 

012 

• WAIT 

fKBBLK 

01  3 

• TRAN 

fKBBLK, f TRNBLK 

014 

• WAIT 

fKBBLK 

015 

•02BIN 

fOECNO+l 

016 

MOV 

C SP)  + . RECN01 

017 

DEC 

RECN01 

018 

1 OBTAIN  NUMBER 

OF  LAST  RECORD  IN  SECOND  FILE 

019 

. TRAN 

fKBBLK, #TBLK2 

020 

• WAIT 

fKBBLK 

021 

• TRAN 

fKBBLK. f TRNBLK 

022 

• WAIT 

fKBBLK 

023 

•D2BIN 

f DECNO+ ! 

024 

MOV 

( SP ) ♦, RECN02 

025 

DEC 

RECN02 

026 

J INITIALIZE  FILES 

027 

BEGIN:  .OPEN 

fDSKBLl .f FILNM1 

028 

• OPEN 

fDSK8L2.f FILNM2 

029 

JSR 

R5.0PUTI 

030 

J OBTAIN  NUMBER 

OF  SAMPLES  TO  SKIP  FOR 

03! 

t CHANNEL  1 

032 

• TRAN 

fKBBLK, f TBLK3 

033 

• WAIT 

fKBBLK 

034 

• TRAN 

fKBBLK, f TRNBLK 

035 

• WAIT 

fKBBLK 

036 

.028 IN 

fDECNO+1 

037 

1 STARTING  RECORD  NUMBER  FOR  FIRST  FILE  INTO  RECBL: 

038 

1 ADDRESS  OF  FIRST  SAMPLE  INTO  R1 

039 

MOV 

( SP ) +, R 1 

040 

CLR 

R0 

041 

DIV 

fS12.,R0 

042 

ADD 

R0.RECBLI+10 

043 

ADD 

fNPUTI.RI 

044 

J OBTAIN  NUMBER 

OF  SAMPLES  TO  SKIP  FOR 

045 

J CHANNEL  2 

046 

.TRAN 

fKBBLK. fTBLKA 

047 

• WAIT 

fKBBLK 

048 

.TRAN 

fKBBLK. f TRNBLK 

BEST  AVAILABLE  COPY 
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049 

• WAIT 

fKBBLK 

050 

• D28IN 

#DECNO*l 

051 

J 

STARTING  RECORD  NUM8ER  FOR  SECOND  FILE 

IN  RECBL2 

052 

1 

ADDRESS  OF  FIRST  SAMPLE  INTO  R3 

053 

MOV 

< SP ) ♦ # R3 

054 

CLR 

R2 

055 

DIV 

#512. #R2 

056 

ADO 

R2#  RECBL2* 1 0 

057 

MOV 

R3#R2 

058 

ADD 

#NPUT2#  R2 

059 

1 

TEST 

TO  SEE 

IF  DOPPLR  CORRECTIONS  ARE 

TO  BE  MADE 

060 

MOV 

9#SW#N0D0P 

061 

BIC 

#1 77776#NODOP 

062 

BEO 

INI  T 

063 

1 

OBTAIN  NUMBER 

OF  SAMPLES  BETWWEN  DOPPLER  CORRECTIONS 

064 

.TRAN 

fKBBLK#  #TBLK5 

065 

• WAIT 

fKBBLK 

066 

.TRAN 

fKBBLK#  f TRNBLK 

067 

• WAIT 

fKBBLK 

068 

• D2BIN 

fDECNO+l 

069 

MOV 

C SP ) ♦#  DOPP 

070 

MOV 

DOPP#  DROP 

071 

J 

DROP 

OR  ADD  SAMPLES  FROM  CHANNEL  2? 

072 

.TRAN 

fKBBLK#  f TBLK6 

07  3 

• WAIT 

fKBBLK 

07  4 

. TRAN 

fKBBLK#  fTRNBLl 

07  5 

• WAIT 

fKBBLK 

07  6 

• RADPK 

f DECNO 

07  7 

MOV 

< SP  > ♦#  ANSWR 

07  8 

1 

INPUT 

DATA 

079 

I N I T t 

MOV 

f OUT#  R3 

080 

MOV 

f 1 000 • # R4 

081 

JSR 

R5#  RED  1 

082 

JSR 

R5^RED2 

083 

1 

MULTIPLEX  THE 

CHANNELS 

084 

LOOP! 

MOVB 

<R1)*#(R3>*  ICHANNEL 

1 SAMPLE  INTO 

OUTPUT  FILE 

085 

MO  VB 

< R2 > ♦# ( R3 ) ♦ ICHANNEL  2 

SAMPLE  INTO  OUTPUT  FILE 

086 

DEC 

R4 

087 

BNE 

CONT  1 OUTPUT  BUFFER  FULL? 

088 

JSR 

R5.0PUT  IVES 

089 

BR 

• +4 

090 

• WORD 

OUT 

091 

MOV 

#1000. »R4 

092 

MOV 

#0UT»R3 

093 

JSR 

R5. OPUTD 

094 

MOV 

*#172520. R0 

095 

BIC 

#1 75777. R0 

096 

BNE 

DONE  J ERROR  IN 

WRITING? 

097 

CONTs 

CMP 

R 1 » #NPUT1 #512. 

098 

BNE 

NXT  I LAST  SAMPLE  IN  CHANNEL 

1 BUFFER? 

099 

JSR 

R5.RED1  J YES 

100 

MOV 

#NPUT 1 » R 1 
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101  NXT  ! CMP  R2.FNPUT2+512. 

102  BNE  OOPPLR  1LAST  SAMPLE  FOR  CHANNEL  2 BUFFER? 

103  JSR  R5.RED2  I YES 

1 0 A MOV  FNPUT2.R2 

10S  OOPPLR!  TST  NODOP 

| 106  8EQ  LOOP  J DOPPLER  CORRECTIONS  USED? 

107  OEC  DROP  I YES 

108  BNE  LOOP  IMAKE  A DOPPLER  CORRECTION  NOW? 

109  MOV  DOPP.DROP  I YES 

110  CMP  ANSWR#  ADO 

I til  BNE  TWO 

112  DEC  R2  I ADD  A SAMPLE 

113  JMP  LOOP 

1 1 A TWO!  INC  R2  I DROP  A SAMPLE 

115  CMP  R2#FNPUT2*5I2. 

116  BNE  LOOP  I LAST  SAMPLE  FOR  CHANNEL  2 BUFFER? 

117  JSR  R5.RED2  I YES 

118  MOV  FNPUT2.R2 

119  JMP  LOOP 

120  I READ  DATA  FOR  CHANNEL  1 

121  REDl!  CMP  RECBL1+10.RECNOI 

122  BGT  DONE  t CHANNEL  1 DATA  EXHAUSTED? 

123  • RECRD  FDSKBL 1 # FRECBL 1 » NO 

I2A  .WAIT  FDSKBL 1 

125  MOV  RECBL1 # R0 

126  TSTB  RECBL1+1 

127  BNE  Error 

128  ADO  FI#  RECBL 1 + 10 

129  RTS  R5 

130  I READ  DATA  FOR  CHANNEL  2 

131  RED2!  CMP  RECBL2+ 1 0#  RECN02 

132  BGT  DONE  I CHANNEL  2 DATA  EXHAUSTED? 

133  MOVB  NPUT2+5I2..NPUT2-1  INO 

I3A  .RECRD  FDSKBL2#  FRECBL2 

135  .WAIT  FDSK8L2 

136  MOV  RECBL2.R0 

137  TSTB  RECBL2* 1 

138  BNE  ERROR 

139  ADD  FI#  RECBL2. 1 0 

1A0  RTS  R5 

. 1 A 1 I PROCESSING  DONE 

j 1 A 1 ERROR!  .TRAN  FKBBLK#  FTBLK 

1A2  .WAIT  FKBBLK 

I A3  DON El  CLR  RECBL I* 10 

IAA  CLR  RECBL2+ 1 0 

1A5  JSR  RS#  OPUTF 

IA6  .CLOSE  FDSKBL1 

1A7  .CLOSE  FDSKBL2 

1A8  TST  9 FSW  J TEST  BIT  15  OF  SWITCH  REGISTER 

IA9  BMI  FIN  J IF  ON  DONE 
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150 

JMP 

BEGIN  > OTHERWISE  GENERATE 

NEW  MAG 

TAPE 

151 

FIN* 

• RLSE 

OKBBLK 

152 

. RLSE 

fDSKBLl 

153 

• RLSE 

f DSKBL2 

154 

.EXIT 

155 

1 DISK 

LINK  8L0CK 

156 

.WORD 

0 

157 

DSK8L 1 : 

.WORD 

0 

158 

• RAD50 

/DIS/ 

159 

.WORD 

1 

160 

. RADS0 

/DK/ 

161 

. WORD 

0 

162 

DSKBL2: 

.WORD 

0 

163 

• RAD50 

/DUS/ 

164 

.WORD 

1 

16S 

.RAD 50 

/DK/ 

166 

1 KEYBOARD  link 

BLOCK 

167 

.WORD 

0 

168 

KBBLK : 

.WORD 

0.0.1 

169 

.RAD 50 

/KB/ 

170 

3 RECORD  BLOCK 

FOR  FIRST  CHANNEL 

171 

RECBL1 t 

• WORD 

4.NPUT1.512..0.0 

172 

» RECORD  BLOCK 

FOR  SECOND  CHANNEL 

173 

RECBL2* 

.WORD 

4.NPUT2.512..0.0 

174 

I OUTPUT  BLOCK 

FOR  KEYBOARD 

175 

TBLKS 

.WORD 

0. MESG. 4. 2.0 

176 

TBLK1 t 

.WORD 

0.MESG1.22..2.0 

177 

TBLK21 

.WORD 

0.MESG2.22..2.0 

178 

TBLK3: 

.WORD 

0.MESG3.22..2.0 

179 

TBLK4J 

.WORD 

0.MESG4.22..2.0 

180 

TBLKS* 

.WORD 

0.MESG5.22..2.0 

181 

TBLK6 J 

. WORD 

3.MESG6.  1 7.  .2.0 

182 

MESG* 

.ASCII 

/ ERROR/ 

183 

.BYTE 

15.12 

184 

MESGI s 

.ASCI  I 

/LAST  DATA  RECORD  TO  READ  FOR 

STATION 

I 

185 

.EVEN 

186 

MESG2: 

.ASCII 

/LAST  DATA  RECORD  TO  READ  FOR 

STATION 

2 

187 

.EVEN 

188 

MESG3* 

.ASCI  I 

/NO.  OF  SAMPLES  TO  DROP  FROM 

STATION  I 

DATA 

189 

.EVEN 

190 

MESG4* 

♦ ASCII 

/NO.  OF  SAMPLES  TO  DROP  FROM 

STATION  2 

DA  TA 

191 

.EVEN 

192 

MESG5* 

• ASCII 

/NO.  OF  SAMPLES  BETWEEN  DOPPLER  CORRECTIONS 

193 

.EVEN 

194 

MESG6* 

• ASCII 

/ADD  OR  SUB  SAMPLES  FROM  CHANNEL  27  / 

195 

.EVEN 

196 

ADD* 

• RAD50 

/ADD/ 

197 

3 TRAN 

BLOCK  FOR  KEYBOARD 

198 

TRNBLKt 

.WORD 

0.DECNO.4..  5.0 

• 99 

TRNBL1  * 

.WORD 

0.DECNO.3.4.0 

11 
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200  I filename  for  first  channel 

201  .WORD  0,1 

202  F I LNM 1 t • RAO50  /STANO 1 DAT / 

203  .WORD  0,233 

204  I FILENAME  FOR  SECOND  CHANNEL 

205  , WORD  0, I 

206  FILNM2I  .RAO50  /STAN02DAT / 

207  .WORD  0,233 

208  I STORAGE  AREAS 

209  ANSWR I .WORD  0 

210  DOPPt  .WORD  0 

211  DROP:  .WORD  0 

212  RECNOl I .WORD  0 

213  RECN02I  .WORD  0 

214  OUT!  • BLKW  1000. 

21 5 DECNOt  .BLKW  4 

216  NPOTls  .BLKW  256. 

217  .WORD  0 

218  NPUT2:  .BLKW  256. 

219  NODOPt  .WORD  0 

220  .END  START 


001 

002  J OPUTI  - INITIALIZATION  FOR  OUTPUT 

003  I OPUT  - OUTPUTS  A RECORD  TO  7 TRACK  MAG  TAPE  (556  BPl > 

004  I OPUTD  - CHECKS  TO  SEE  IF  OUTPUT  COMPLETED 

005  J OPUTF  * CLOSES  FILE 

006  .TITLE  OUTPUT 

007  . MCALL  . INIT, .TRAN,. WAIT.. RLSE, .SPEC 

008  OPUTI It  .INIT  fMAGBLK 

009  .SPEC  fMAGBLK, fSFBLK 

010  RTS  R5 

011  OPUTs:  MOV  Rl, -ISP) 

012  MOV  R0,-<SP> 

013  MOV  2(  R5)  , TRNBLK+2 

014  MOV  TRNBLK+2.  Rl 

015  MOV  #2000. »R0 

016  LOOPS  ASRB  (Rl) 

017  ASRB  (Rl )♦ 

018  SOB  R0.LOOP 

019  .TRAN  fMAGBLK, #TRNBLK 

020  MOV  (SP) ♦, R0 

021  MOV  (SP)+.RI 

022  RTS  R5 

023  OPUTD I : .WAIT  fMAGBLK 

024  RTS  R5 

025  OPUTF s S .SPEC  fMAGBLK, fSFBLK I 

026  .RLSE  fMAGBLK 

027  RTS  R5 

028  SFBLKl  .BYTE  6,3 

029  .WORD  0 

030  .BYTE  0.1 

031  .WORD  0 

032  SFBLKl:  .BYTE  2,3 

033  .WORO  0,0.0 


